<script>-- This button displays the list of shows for the given-- year, including show date, number of songs, and the location----Option Key---- The option key causes the contents of the show list to be rebuilt-- This involves re-scanning the Dead Shows stack.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--lock screenput 0 into totSongsput 0 into totForAvg--set the hilite of bg button "Song List" to falseif the optionKey is down thenput empty into theListput 0 into showCountpush this cardput Trim( field "Year" ) into tmpput tmp - 1900 into theYearput "finding first show in " & theYearset the cursor to watchgo stack "Dead Shows"goFirstCardOfYear theYearput "Building list..."put the id of this card into firstIDrepeat forevershowBusyput field "total songs" into totput Trim( field "date" ) & tab & "(" & tot & ") " &¬field "location" & return after theListadd 1 to showCountif tot > 4 thenadd 1 to totForAvgadd tot to totSongsend ifshowBusygo next cardif piece( field "date", "/", 3 ) is not theYear then exit repeatshowBusyend repeatpop cardput theList into field "Show List"put ExpandTabs( theList, 10 ) into field "Show List"put showCount & " shows..." into field "Show Title"put showCount into field "Total Shows"put totSongs into field "Total Songs"if totForAvg > 0 thenput totSongs / totForAvg into avgelseput 0 into avgend ifput ( round( avg * 100 ) / 100 ) into field "Average"hide messageend ifmakeCurrent "Show"unlock screen with visual effect dissolve fastend mouseUp</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>56</left>
<top>22</top>
<right>106</right>
<bottom>39</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>condense</textStyle>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Year</name>
<script></script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>12</left>
<top>41</top>
<right>231</right>
<bottom>59</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>condense</textStyle>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Show Title</name>
<script></script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>12</left>
<top>61</top>
<right>390</right>
<bottom>334</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Show List</name>
<script>on mouseUpput the selectedText into lastSelectionput the rect of me into myBoxput the textHeight of me into lineHeightput item 2 of myBox into topLineput trunc((item 1 of myBox) + ((item 3 of myBox - item 1 of myBox)/2)) - 8 into centerput the clickLoc into theLocput trunc(((item 2 of theLoc - topLine) + ¬the scroll of me) /lineHeight) + 1 into showLineput topLine + (((showLine - 1) * lineHeight) - the scroll of me) ¬+ 6 into fldLine--put line showLine of me into theShowif theShow is lastSelection thenput the id of this card into origCardput word 1 of theShow into theDateset the lockScreen to trueset the cursor to 4go stack "Dead Shows"put findShowByDate( theDate ) into foundItif foundIt is false thenanswer "Show not found!!"go card id origCardend ifexit mouseUpend ifif theShow is empty thenselect emptyelseselect line showLine of meend ifend mouseUp</script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>409</left>
<top>32</top>
<right>468</right>
<bottom>54</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>14</textSize>
<textStyle>condense</textStyle>
<textStyle>bold</textStyle>
<textHeight>18</textHeight>
<name>Current List</name>
<script></script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>402</left>
<top>106</top>
<right>499</right>
<bottom>124</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Song List</name>
<script>-- This button displays the list of songs for the given-- year, ordered by descending frequency including the number-- of times played, and the song title----Option Key---- The option key causes the contents of the songs list to be rebuilt-- This involves sorting the Songs stack by descending frequency-- for the year, building the list, and then re-sorting the songs-- stack by title before returning. Songs not played are not-- displayed.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--lock screen-- set the hilite of the target to true-- set the hilite of bg button "Show List" to falseif the optionKey is down thenput Trim( field "Year" ) into theYearbuildSongList theYear, trueend ifmakeCurrent "Song"hide messageunlock screen with visual effect dissolve fastend mouseUp</script>
</part>
<part>
<id>7</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>12</left>
<top>60</top>
<right>390</right>
<bottom>334</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Song List</name>
<script>on mouseUpput the selectedText into lastSelectionput the rect of me into myBoxput the textHeight of me into lineHeightput item 2 of myBox into topLineput trunc((item 1 of myBox) + ((item 3 of myBox - item 1 of myBox)/2)) - 8 into centerput the clickLoc into theLocput trunc(((item 2 of theLoc - topLine) + ¬the scroll of me) /lineHeight) + 1 into songLineput topLine + (((songLine - 1) * lineHeight) - the scroll of me) ¬+ 6 into fldLine--put line songLine of me into theSongif theSong is lastSelection thenput the id of this card into origCardput piece( theSong, ")", 2 ) into tempput trim(temp) into theSongset the lockScreen to trueset the cursor to 4go stack "Songs"find string theSong in field "title"if field title is not theSong thengo card id origCardend ifexit mouseUpend ifif theSong is empty thenselect emptyelseselect line songLine of meend ifend mouseUp</script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>12</left>
<top>42</top>
<right>224</right>
<bottom>60</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>condense</textStyle>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Song Title</name>
<script></script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>417</left>
<top>216</top>
<right>479</right>
<bottom>239</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Print...</name>
<script>-- This button will send the contents of the currently displayed-- list (either Shows or Songs) to the printer with some header-- information.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--put field "Title" into theTitleput field "Current List" into theNameopen file saveFileput field "Year" & " : " & field (theName && "Title" ) & return¬& "----------" & return & field (theName && "List" ) into field "temp"PrintField card, "temp", "Geneva", 10, 13put empty into field "temp"end mouseUp</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>417</left>
<top>242</top>
<right>479</right>
<bottom>265</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Save...</name>
<script>-- This button will save the contents of the currently displayed-- list (either Shows or Songs) to a file with some header-- information. It will ask for the name of the file.on mouseUpglobal deadDir, defFileCreatorif the commandKey is down thendoHelpexit mouseUpend if--ask "Save to File..." with deadDirput it into saveFileput field "Current List" into theNameif saveFile is not empty thenopen file saveFilewrite field "Year" & " : " & field (theName && "Title" ) &¬return & "---------------" & return & field (theName && "List" ) ¬to file saveFileclose file saveFilesetFileType saveFile, "TEXT", defFileCreatorend ifend mouseUp</script>
</part>
<part>
<id>11</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>481</left>
<top>26</top>
<right>505</right>
<bottom>48</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>temp</name>
<script></script>
</part>
<part>
<id>17</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>395</left>
<top>317</top>
<right>420</right>
<bottom>340</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>20689</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Home</name>
<script>-- This card sends you to the Home stackon mouseUpif the commandKey is down thendoHelpexit mouseUpend if--lock screengo stack "Dead Utility"playDeadSong "Franklins"go "Home"unlock screen with visual effect iris closeend mouseUp</script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>448</left>
<top>313</top>
<right>473</right>
<bottom>338</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1013</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next</name>
<script>-- This button will send you to the next card.on mouseDownif the optionKey is down thenshow all cardsexit mouseDownend if--go next cardend mouseDownon mouseStillDowngo next cardend mouseStillDown</script>
</part>
<part>
<id>13</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>423</left>
<top>313</top>
<right>448</right>
<bottom>338</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1014</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Prev</name>
<script>-- This button will send you to the previous card.on mouseDownif the optionKey is down thenshow all cardsexit mouseDownend if--go prev cardend mouseDownon mouseStillDowngo prev cardend mouseStillDown</script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>417</left>
<top>191</top>
<right>479</right>
<bottom>213</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New</name>
<script>-- This button will create a new Year Stats card-- It will first ask for the year to be entered, and then-- set up a new card.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--ask "Create new card for what year..."if it is empty then exit mouseUpput it into theYeardoMenu "New Card"put theYear into field "year"--type tabend mouseUp</script>
</part>
<part>
<id>16</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>480</left>
<top>314</top>
<right>500</right>
<bottom>336</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>26635</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Help</name>
<script>--This stack provides some statistical functions about the Grateful--Dead gathered from the Shows and Songs stacks. It is only as--accurate as they are.----To view any of the stat lists for a given year, just click the--appropriate button. In order to (re)generate the list, click--the appropriate button with the option key down.----This stack is quite new, and as yet has more to be done. I am--sending it out now as the first few lists are commonly reffered--to (by me anyway) and I thought this much would be useful.----Please let me know of anything more you would like to see in--the way of statistics.on mouseUpif the visible of field "Help" is true thenclick at the loc of field "Help"elsedoHelpend ifend mouseUp</script>
</part>
<part>
<id>18</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>420</left>
<top>25</top>
<right>475</right>
<bottom>81</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>hey now</name>
<script>-- This button plays a random dead tuneon mouseUpif the commandKey is down thendoHelpexit mouseUpend ifplayRandomDeadend mouseUp</script>
</part>
<part>
<id>19</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>124</left>
<top>22</top>
<right>164</right>
<bottom>39</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>condense</textStyle>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Total Shows</name>
<script></script>
</part>
<part>
<id>20</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>239</left>
<top>22</top>
<right>290</right>
<bottom>40</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>condense</textStyle>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Total Songs</name>
<script></script>
</part>
<part>
<id>21</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>239</left>
<top>40</top>
<right>290</right>
<bottom>58</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>condense</textStyle>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Average</name>
<script>on mouseUpput field "Total Songs" / field "Total Shows" into avgput ( round( avg * 100 ) / 100 ) into meend mouseUp</script>
</part>
<part>
<id>23</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>411</left>
<top>275</top>
<right>486</right>
<bottom>299</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>= Stacks =</name>
<script>-- This button will present a pop-up menu of stack names.-- Hold the mouse button down for a few seconds until-- the menu appears. Select one of the choices to-- go to that stack.on mouseDownif the commandKey is down thendoHelpexit mouseDownend if--global stackLastput true into useLastif the optionKey is down then put false into useLastif stackLast is empty thenput "1,1,1,1,1,1" into stackListput the rect of me into thePtif item 2 of thePt > 230 then put 230 into item 2 of thePtput "Shows;Songs;Tapes;Labels;(Stats;Utility" into listput popUp( thePt, list ) into choice-- if it is 0, then no choice was made...if choice is not 0 thenput piece( list, ";", choice ) into theStackif theStack is not "Songs" then put "Dead " before theStackgo stack theStackend ifend ifend mouseDown</script>
<script>-- This is a popup menu of all years-- Click and hold for a pop-up menu of all years to date.-- Select a year from the menu and you will zip to the first-- show of that year. Wow!--on mouseDownglobal globYearList--if the commandKey is down thendoHelpexit mouseDownend if--put the rect of me into thePt-- put 10 into item 1 of thePtif globYearList is empty thenput ";1965;1966;1967;1968;1969" & ¬";1970;1971;1972;1973;1974;1975;1976;1977;1978;1979" & ¬";1980;1981;1982;1983;1984;1985;1986;1987;1988;1989" & ¬";1990;1991;1992;1993;1994" ¬into globYearListget the dateconvert it to dateItemsput item 1 of it into endYearput 1995 into theYearrepeat while theYear <= endYearput ";" & theYear after globYearListadd 1 to theYearend repeat--end ifput popUp( thePt, globYearList ) into choice-- if it is 0, then no choice was made...if choice is not 0 thenput piece( globYearList, ";", (choice+1) ) into theYearset the hilite of me to falselock screenfind theYear in bg field "Year"end ifend mouseDown</script>
</part>
<content>
<layer>background</layer>
<id>5</id>
<text>Song</text>
</content>
<content>
<layer>background</layer>
<id>24</id>
<text>Help for bkgnd button "Song List"... This button displays the list of songs for the given year, ordered by descending frequency including the number of times played, and the song titleOption Key The option key causes the contents of the songs list to be rebuilt This involves sorting the Songs stack by descending frequency for the year, building the list, and then re-sorting the songs stack by title before returning. Songs not played are not displayed.</text>
</content>
<name>Year Stats</name>
<script>on closeCardselect emptyend closeCardon allYearSongListput "19" & piece( the date, "/", 3 ) into thisYearput thisYearpush this cardlock screenrepeat with year = 1965 to thisYearfind year in field "Year"if the result is empty then -- found it...buildSongList year, trueend ifend repeatpop cardunlock screenend allYearSongListon buildSongList theYear, reSortput empty into theListput 0 into songCountput 0 into totSongspush this cardput "c" & theYear into sortFieldgo stack "Songs"put "Sorting songs by frequency played for in " & theYear & "..."set the cursor to watchsort descending numeric by field sortField--put "Building list..."repeat for the number of cardsput field sortField into countif count < 1 then exit repeatshowBusyput "(" & count & ") " & field "title" & return after theListadd count to totSongsadd 1 to songCountshowBusygo next cardend repeatif reSort is true thenput "Re-sorting..."set the cursor to watchsort by field "title"end ifpop cardput theList into field "Song List"-- put ExpandTabs( theList, 11 ) into field "Show List"put songCount & " different songs..." into field "Song Title"put totSongs into field "Total Songs"end buildSongList</script>
